home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / examples / Form1.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1991-10-05  |  2.4 KB  |  69 lines

  1. ; -*-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         form-widg1.lsp
  5. ; RCS:          $Header: Form1.lsp,v 1.3 91/10/05 02:39:00 mayer Exp $
  6. ; Description:  Form widget layout -- same as formtest.c on p 88 of Doug Young's
  7. ;        Motif book.                    
  8. ; Author:       Niels Mayer, HPLabs
  9. ; Created:      Fri Jul 27 00:22:55 1990
  10. ; Modified:     Sat Oct  5 02:38:43 1991 (Niels Mayer) mayer@hplnpm
  11. ; Language:     Lisp
  12. ; Package:      N/A
  13. ; Status:       X11r5 contrib tape release
  14. ;
  15. ; WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  16. ; XLISP version 2.1, Copyright (c) 1989, by David Betz.
  17. ;
  18. ; Permission to use, copy, modify, distribute, and sell this software and its
  19. ; documentation for any purpose is hereby granted without fee, provided that
  20. ; the above copyright notice appear in all copies and that both that
  21. ; copyright notice and this permission notice appear in supporting
  22. ; documentation, and that the name of Hewlett-Packard and Niels Mayer not be
  23. ; used in advertising or publicity pertaining to distribution of the software
  24. ; without specific, written prior permission.  Hewlett-Packard and Niels Mayer
  25. ; makes no representations about the suitability of this software for any
  26. ; purpose.  It is provided "as is" without express or implied warranty.
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28.  
  29. (setq toplevel_w
  30.       (send TOP_LEVEL_SHELL_WIDGET_CLASS :new "form1shl"
  31.         :XMN_GEOMETRY    "200x200+1+1"
  32.         :XMN_TITLE        "Winterp:FORM TEST"
  33.         :XMN_ICON_NAME    "W:FORM TEST"
  34.         ))
  35.  
  36. (setq form_w
  37.       (send XM_FORM_WIDGET_CLASS :new :managed
  38.         "form" toplevel_w
  39.         ))
  40.  
  41. (setq pb1_w
  42.       (send XM_PUSH_BUTTON_WIDGET_CLASS :new :managed
  43.         "pb1" form_w
  44.         :XMN_TOP_ATTACHMENT        :attach_form
  45.         :XMN_LEFT_ATTACHMENT    :attach_form
  46.         :XMN_RIGHT_ATTACHMENT    :attach_form
  47.         ))
  48.  
  49. (setq pb2_w
  50.       (send XM_PUSH_BUTTON_WIDGET_CLASS :new :managed
  51.         "pb2" form_w
  52.         :XMN_TOP_ATTACHMENT        :attach_widget
  53.         :XMN_TOP_WIDGET        pb1_w
  54.         :XMN_LEFT_ATTACHMENT    :attach_form
  55.         :XMN_RIGHT_ATTACHMENT    :attach_form        
  56.         ))
  57.  
  58. (setq pb3_w
  59.       (send XM_PUSH_BUTTON_WIDGET_CLASS :new :managed
  60.         "pb3" form_w
  61.         :XMN_TOP_ATTACHMENT        :attach_widget
  62.         :XMN_TOP_WIDGET        pb2_w
  63.         :XMN_LEFT_ATTACHMENT    :attach_form
  64.         :XMN_RIGHT_ATTACHMENT    :attach_form
  65.         :XMN_BOTTOM_ATTACHMENT    :attach_form
  66.         ))
  67.  
  68. (send toplevel_w :realize)
  69.